home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cowboy / shootout.bas < prev    next >
Encoding:
BASIC Source File  |  1995-09-07  |  751 b   |  24 lines
  1. Attribute VB_Name = "SHOOTOUT1"
  2. Option Explicit
  3. '----------------------------------------------------------
  4. ' SHOOTOUT.BAS
  5. '----------------------------------------------------------
  6.  
  7. ' Data type required by the IntersectRect function
  8. Type tRect
  9.     Left As Long
  10.     Top As Long
  11.     Right As Long
  12.     Bottom As Long
  13. End Type
  14.  
  15. ' Windows API rectangle functions
  16. Declare Function IntersectRect Lib "user32" (lpDestRect As tRect, lpSrc1Rect As tRect, lpSrc2Rect As tRect) As Long
  17.  
  18. ' Functions and constants used to play sounds.
  19. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  20.  
  21. ' Constant used with sndPlaySound function
  22. Global Const SND_ASYNC = &H1
  23.  
  24.